home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / frames.e < prev    next >
Text File  |  2002-10-28  |  6KB  |  179 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'graphics/rastport',
  4.        'intuition/intuitionbase','intuition/intuition','intuition/screens',
  5.        'feelin','libraries/feelin'
  6.  
  7. PROC main()
  8.    DEF c,w
  9.  
  10.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  11.       c := ClientObject,
  12.          Child, w := WindowObject, FA_Window_Title,'Feelin : Frames',
  13.             Child, Page, FA_Group_PageTitles, ['Frames','Positions','Examples'],
  14.                Child, VGroup,
  15.                   Child, HGroup,
  16.                      Child, AreaObject, FA_Frame, 001, DontChain, End,
  17.                      Child, AreaObject, FA_Frame, 002, DontChain, End,
  18.                      Child, AreaObject, FA_Frame, 003, DontChain, End,
  19.                      Child, AreaObject, FA_Frame, 004, DontChain, End,
  20.                      Child, AreaObject, FA_Frame, 005, DontChain, End,
  21.                      Child, AreaObject, FA_Frame, 006, DontChain, End,
  22.                      Child, AreaObject, FA_Frame, 007, DontChain, End,
  23.                      Child, AreaObject, FA_Frame, 008, DontChain, End,
  24.                   End,
  25.                   Child, HGroup,
  26.                      Child, AreaObject, FA_Frame, 009, DontChain, End,
  27.                      Child, AreaObject, FA_Frame, 010, DontChain, End,
  28.                      Child, AreaObject, FA_Frame, 011, DontChain, End,
  29.                      Child, AreaObject, FA_Frame, 012, DontChain, End,
  30.                      Child, AreaObject, FA_Frame, 013, DontChain, End,
  31.                      Child, AreaObject, FA_Frame, 014, DontChain, End,
  32.                      Child, AreaObject, FA_Frame, 015, DontChain, End,
  33.                      Child, AreaObject, FA_Frame, 016, DontChain, End,
  34.                   End,
  35.                   Child, HGroup,
  36.                      Child, AreaObject, FA_Frame, 017, DontChain, End,
  37.                      Child, AreaObject, FA_Frame, 018, DontChain, End,
  38.                      Child, AreaObject, FA_Frame, 019, DontChain, End,
  39.                      Child, AreaObject, FA_Frame, 020, DontChain, End,
  40.                      Child, AreaObject, FA_Frame, 021, DontChain, End,
  41.                      Child, AreaObject, FA_Frame, 022, DontChain, End,
  42.                      Child, AreaObject, FA_Frame, 023, DontChain, End,
  43.                      Child, AreaObject, FA_Frame, 024, DontChain, End,
  44.                   End,
  45.                   Child, HGroup,
  46.                      Child, AreaObject, FA_Frame, 025, DontChain, End,
  47.                      Child, AreaObject, FA_Frame, 026, DontChain, End,
  48.                      Child, AreaObject, FA_Frame, 027, DontChain, End,
  49.                      Child, AreaObject, FA_Frame, 028, DontChain, End,
  50.                      Child, AreaObject, FA_Frame, 029, DontChain, End,
  51.                      Child, AreaObject, FA_Frame, 030, DontChain, End,
  52.                      Child, AreaObject, FA_Frame, 031, DontChain, End,
  53.                      Child, AreaObject, FA_Frame, 032, DontChain, End,
  54.                   End,
  55.                   Child, HGroup,
  56.                      Child, AreaObject, FA_Frame, 033, DontChain, End,
  57.                      Child, AreaObject, FA_Frame, 034, DontChain, End,
  58.                      Child, AreaObject, FA_Frame, 035, DontChain, End,
  59.                      Child, AreaObject, FA_Frame, 036, DontChain, End,
  60.                      Child, AreaObject, FA_Frame, 037, DontChain, End,
  61.                      Child, AreaObject, FA_Frame, 038, DontChain, End,
  62.                      Child, AreaObject, FA_Frame, 039, DontChain, End,
  63.                      Child, AreaObject, FA_Frame, 040, DontChain, End,
  64.                   End,
  65.                   Child, HGroup,
  66.                      Child, AreaObject, FA_Frame, 041, DontChain, End,
  67.                      Child, AreaObject, FA_Frame, 042, DontChain, End,
  68.                      Child, AreaObject, FA_Frame, 043, DontChain, End,
  69.                      Child, AreaObject, FA_Frame, 044, DontChain, End,
  70.                      Child, AreaObject, FA_Frame, 045, DontChain, End,
  71.                      Child, AreaObject, FA_Frame, 046, DontChain, End,
  72.                      Child, AreaObject, FA_Frame, 047, DontChain, End,
  73.                      Child, AreaObject, FA_Frame, 048, DontChain, End,
  74.                   End,
  75.                End,
  76.  
  77.                Child, HGroup,
  78.                   Child, VGroup,
  79.                      Child, AreaObject,
  80.                         FA_Frame,            11,
  81.                         FA_Frame_Title,      'UpLeft',
  82.                         FA_Frame_Position,   FV_Frame_UpLeft,
  83.                         FA_Back,             'c:FF0000',
  84.                         DontChain,
  85.                      End,
  86.                      Child, AreaObject,
  87.                         FA_Frame,            11,
  88.                         FA_Frame_Title,      'UpCenter',
  89.                         FA_Frame_Position,   FV_Frame_UpCenter,
  90.                         FA_Back,             'c:FFFF00',
  91.                         DontChain,
  92.                      End,
  93.                      Child, AreaObject,
  94.                         FA_Frame,            11,
  95.                         FA_Frame_Title,      'UpRight',
  96.                         FA_Frame_Position,   FV_Frame_UpRight,
  97.                         FA_Back,             'c:00FF00',
  98.                         DontChain,
  99.                      End,
  100.                   End,
  101.                   Child, VGroup,
  102.                      Child, AreaObject,
  103.                         FA_Frame,            11,
  104.                         FA_Frame_Title,      'DownLeft',
  105.                         FA_Frame_Position,   FV_Frame_DownLeft,
  106.                         FA_Back,             'c:00FFFF',
  107.                         DontChain,
  108.                      End,
  109.                      Child, AreaObject,
  110.                         FA_Frame,            11,
  111.                         FA_Frame_Title,      'DownCenter',
  112.                         FA_Frame_Position,   FV_Frame_DownCenter,
  113.                         FA_Back,             'c:0000FF',
  114.                         DontChain,
  115.                      End,
  116.                      Child, AreaObject,
  117.                         FA_Frame,            11,
  118.                         FA_Frame_Title,      'DownRight',
  119.                         FA_Frame_Position,   FV_Frame_DownRight,
  120.                         FA_Back,             'c:FF00FF',
  121.                         DontChain,
  122.                      End,
  123.                   End,
  124.                End,
  125.                
  126.  
  127.                Child, VGroup,
  128.                   Child, HGroup,
  129.                      Child, button(029,030,FI_Fill,FI_Fill),
  130.                      Child, button(031,032,FI_Fill,FI_Fill),
  131.                      Child, button(017,018,FI_Fill,FI_Fill),
  132.                      Child, button(023,024,FI_Fill,FI_Fill),
  133.                      Child, button(019,020,FI_Fill,FI_Fill),
  134.                      Child, button(025,026,FI_Fill,FI_Fill),
  135.                      Child, button(021,022,FI_Fill,FI_Fill),
  136.                   End,
  137.  
  138.                   Child, HGroup,
  139.                      Child, button(015,013,FI_Fill,FI_Fill),
  140.                      Child, button(016,014,FI_Fill,FI_Fill),
  141.                      Child, button(040,041,FI_None,FI_None),
  142.                      Child, button(036,036,FI_Dark,FI_Shine),
  143.                   End,
  144.  
  145.                   Child, HGroup,
  146.                      Child, button(034,009,FI_Fill,FI_HalfShadow),
  147.                      Child, button(027,028,FI_Fill,FI_Dark),
  148.                      Child, button(037,038,FI_Fill,FI_HalfShadow),
  149.                      Child, button(033,003,FI_Fill,FI_Dark),
  150.                      Child, button(039,010,FI_Fill,FI_Fill),
  151.                   End,
  152.                End,
  153.             End,
  154.          End,
  155.       End
  156.  
  157.       IF c
  158.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  159.          F_Set(w,FA_Window_Open,TRUE)
  160.  
  161.          F_DoA(c,FM_Client_Run,NIL)
  162.  
  163.          F_DisposeObj(c)
  164.       ENDIF
  165.  
  166.       CloseLibrary(feelinbase)
  167.    ENDIF
  168. ENDPROC
  169.  
  170. PROC button(rf,sf,ri,si)
  171.    RETURN AreaObject,
  172.           FA_InputMode, FV_InputMode_Toggle,
  173.           FA_Frame,     rf,
  174.           FA_AltFrame,  sf,
  175.           FA_Back,      ri,
  176.           FA_AltBack,   si,
  177.           End
  178. ENDPROC
  179.